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SPECIAL ANNOUNCEMENT 2 AA "Tu 
+ ers, 
NAAM 
' Please register your HOLIDAY CONTEST entry with Carl * SALA AME 


X 


Mielcarek 355-3539 ASAP. So  far^there are no contestants (Ж eU US 
easy competition ). Door prizes will be awarded if contest = 
flops. Carl also asks that you bring a small treat to share 


with the membership - cookies, candy etc. if possible. « 
Coffee, Hot chocolate and egg nog will be served. ve 


WE WISH YOU A MERRY CHRISTMAS 
WE WISH YOU A MERRY CHRISTMAS 
WE WISH YOU A MERRY CHRISTMAS 


... .AND-A-HAP-PY, NEW-YEAR!!! 


THINGS ARE LOOKIN' UP 

Every year InfoWorld, a weekly 
newspaper devoted to the 
microcomputer end of the business, 
selects products of the year in 


several catagories. This years winner 
of the Hardware Value of the Year was 
none other than Atari’s 520ST. Not an 
Oscar or Emmy but reconition none the 
less. The 520 was also the hit of the 
PC World Show held in jolly old 
England earlier this year. With the 
release of more and more software, 
786 is shaping up as a very good year 
for the new systems. 

Add the Computer Curriculum Corp. to 
the list of ST believers. CCC plans 
to use the 520's as a workstation in 
its CCC Learning Station system. Each 
station will consist of a 520, two 
floppy drives and a hard disk. It 
will be connected to Microhost 
superminicomputer via a modem or a 
6-wire cable. The Microhost is a 
68010 based computer with а 224Meq 
hard disk that can accomodate up to 
128 simultaneous users. Each CCC 520 
will come with cost between $2-3000 
and come with Basic, Logo, Neochrome 
and ST Write. CCC has added color to 
the Microhost educational software 
for use with the ST’s. In all CCC has 
2500 hours of courseware 
under Unix System V, and claims that 
more than 1300 schools and half а 
million students use the Microhost 
System. Looks like another step 
forward. 


COME ONE, COME ALL 

The first meeting of the ST SIG was 
held at the Nov. meeting апа was 
attended by about 10/12 people, not 


running 


~d 


all of them ST owners. The SIG is open 
to those who own or are interested in 
the ST line of computers. For now the 
SIG meetings will be held before the 
regular meetings. Milatari plans to 
build and support a public domain 
library for the ST’s in the same way 
it has for the 8-bit systems. As other 
models are added to the ST line, they 
will receive the same support. So if 
you own, plan to buy or just want to 
learn more about the new computers, 
stop by the next SIG meeting and check 
It out. 
SAY BYEST.. vers 
One more computer mag bites the 
dust. Thise tine it's one of tbe 
oldest. Creative Computing announced 
that the December issue would be its 
last. The magazine hade been published 
for 11 years and was the first one I 
ever bought or subscribed to, before I 
had a computer even. It had gotten 
thinner in the past year but what 
appeared was still pretty good. 


LISTEN UP 
А11 you Prometheus modem owners 
might want to pay attention to the 
following. If you already have the 
Options Processor board installed you 
can upgrade to the 512K RAM 
Communication Buffer Option for only 
$40. This does not include the chips 
of course, but the lowest price for 
256K-150ns chips is $2. You'll need 16 
of the little beauties so the 
whole-hog update will run $72 plus 
shipping. Among other things you get 
with it is a serial printer port. It 
also gives you password protection and 
auotmatic call back to protect the 
files you have stored in that 512K of 
memory. You could almost almost set up 
a BBS: with the thing. If you're 
interested come to the next meeting 
and we will be able to give you more 
information on all the features of 
this upgrade. 
JAMCO Electronics of Belemont, CA is 
the only current source for the board. 
Their number is (415) 592-8097. 


ШШ АТЕШ ЕШ 


РАСЕ З 


folks, it's not that hard, and it's also 

tle Be. work. Here's a chance to 

give something back to the group. How 
FROM THE DISKOF about it -- any volunteers? 


Dave Frazer 


NOVEMBER MEETING 


Another exciting meeting is being plann- 
ed for December. We lead off with a 
workshop and 'C' class at 2:15pm. The 
5205Т SIG will also meet at 2:15pm. See 
my notes below for the activities of 
this SIG.This months workshop will be an 
actual demonstration of the 256K up- 
grade done on a 800XL. And Mark Manyen 
continues the 'C' class at the same 
time. 


At 3:30, we wili hold our 2nd annual 
Christmas programming contest. Members 
in several categories on competition 
wiil demonstrate their programs of а 
Christmas theme. The membership wil! 
vote for their favorites and prizes will 
be given. It's not to late to enter. 
Give Carl а call to reserve presenta- 
tion time. Cookies, egg nog, hot choco- 
late and coffee will be served. Watch 
for a jolly visitor. 


Libraries will be open at 2:00pm. They 
will be closed during the Christmas 
program presentations. 


Mark your calendar for Saturday, Decem- 
ber 21st. The location is Ambruster 
School. The fun begins at 2:00pm. 


WE NEED A SECRETARY 


We regret to announce that Jim Mangione 
has submitted his resignation as secre- 
tary of MILATARI. We will miss Jim's 
leadership оп the board and will hold 
him to his promise to help the club as 
his time permits. 


I would like someone to come forth and 
volunteer to serve as Secretary. Really 


Call me or see me at the next meeting if 
you are interested. 


5205Т SIG 


А smali band of pioneers led by багу 
Nolan, met at our November meeting to 
put together the beginnings of the 520$Т 
special interest group (SIG). This SIG 
will continue to meeting on MILATARI 
Saturdays to foster and promote the 
interest in Atari's 520ST computer. The 
group has started a disk library. ST- 
BASIC 15 available to our members who 
have not yet received it from Atari. 
Copies of the ST-BASIC manual сап be 
ordered from SIG member Roy Duvall. 


Тһе SIG meets again on December 21st at 
2:15pm. If you have a 5205Т or are plan- 
ning to get one or are just curious, 
please join in. 


КЕМЕН MEMBERSHIPS 


Many of us will find membership renewals 
in the mail in the coming months. To 
continue the activities of your group 
and to insure our leadership in the 
Milwaukee Atari community, please remem- 
ber to get your check to Steve Tupper. 
We need your continued support! 


GENIE SERVICE 


General Electric Information Services, 
the world's largest commercial tele- 
processing network, is offering SIGs, 
software, CB, e-mail & games for 
personal computers. Non-prime time rate 
(6pm-9am, Sat, Sun & holidays) 300 or 
1200 baud for $5.00/hr. Sign up from 
your keyboard. 


1-800-638-8369 Half duplex, 300 or 1200 
baud. Upon connection enter 'HHH' then 
press return. At the Uf- prompt enter 
' VJM11951, GENTE' and press return. 


Try is at that number for 5 free minutes 
before you sign up. 


SELOLORE ERE ESEL ESSA 
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Pri Find a high quality copier that wil! 
Printer acetate coples. Request that а 


ive you 
GRID BY KEN WATSON бору 5% made of this grid so that the 
emulsion side of the acetate copy will face 
PRINT SHOP DESIGN GRID down. Your friendly copy center will 
probably have to make copy of the grid on 
Below you will find the most helpful one acetate, then сору that acetate 
tool available for designing your own Print upside-down in order to get the emulsion 
Shop Graphics. Ken Watson, Elsa, Yukon, down. ВЕ 
Canada, sent us this excellent угы, and we 
will give you some tips on how make the -Now buy one of those water-soluable 
most of It. . overhead projector pens (Sanford's Ү15-а- 
. Vis), place your acetate grid over а picture 
The most obvious кеше of the grid 15 of your choice, fill in the dots, and Input 
to physically design your Print Shop graphic It {nto the graphics editor of the Print 
on photocopy of this grid. If you are not Shop Master Diskette. 1+ Is as easy as that 
necessarily artistic In nature (11ке most of to produce custom graphics like those you 
us), here Is another way you can make use of see below. 


= PRINT SHOP 
Design Grid 


KEYING THE ATARI 


By Gerald Hagopian 


1 i } Â tapi а уур. Th 
The joystick jackson the Atariare unigue, They 
z wer. тау. мдетігес - + same 
are actualy input/output devices of some 
Sophistication, We will only be making use of а small 
1: H 
E ` 


yee 


me -11 ' 3 l= 
partion a make а real кеу, That's 
partic | 


Ги! 
re w 


THE ATARI KEY 


ase you didn't know, I'll quickly review the way 

i paddles work, A potentiometer in the 

variable resistor to the current 

is translated by the computer into a numeric valu 

from © to 255, Hy using some inexpensive parts, a 

па some patience, we are going input 

à given resistance into the Atari, This wiil give us a 
numeric value that will in effect be a code, 


т 


First the parts, Hop down to your local Radio 
- 


Shack cr electronics parts store and pick up the 


1 

1) 3 pin female DIN plug 
part# 276-1532 ¢2,49 

(1) hood for the above 


nace 
76-1538 8 


41,59 


I P 
(2) packs of 1/4 watt resistors 
each between 4,7K ohms and 470k ohms 
(2) 2x56 machine screws and nuts 


You'll also neec а soldering iron, some rosin core 
solder,electrical or masking tape, a sharp craft knife, 
and a small screw driver to put everything together, 


a 
part that goes inside the hood ) of the plug, Very 
carefully clip the wire leads of the resistors, 
something like the way they are in Figure 2, We want 
to connect pin 5 апа 7, апа pin 9 and 7 with those 
leads, Carefully solder them inplace and puta small 
piece of tape between them sc they remain separate, 
That's it! Close up the housing and you're done, You 
р-ч have to trim the front plastic tabsa bitso the 

/' inserts smoothly into port one of you Atari, Use 
the two small machine screws and nuts to secure 
plug to the hood, through the two holes in the front 
of tne assembly, 


the 


JOBE OM 


Now BOOT your Atari with the basic cartridge 
installed, Type in the tollawing lines,,, 
10 А-РЕЕК(624):Б-РЕЕК(625) 
СО PRINT "VALUE Az";A;:PRIHMT" VALUE B=" В 
30 GOTO 10 

Plugin the 'key' to Joystick jack 1 andrun the 
program, The values yousee are the valuesof the 
locations 824 (decimal and 625 (decimaD, Write them 
down, these are your code numbers £ar your key, 


USING THE KEY 


LOAD a basic program into memory then list it, At 
the beginning of the program (I usually use lines 2,3 
and 4) insert the following lines, 

2 IF PEEK(624)- CYOUR"A" VALUE] AND РЕЕК(625)= 


aw 
rir 


[YOUR "B" VALUE] THEN GOTO 4 
3 PRINT "INSERT KEY TO RUN":GOTO 2 


4 REM, 


рас г 


ПТ И ЕШШ ПЕП 


РАСЕ 6 шер 


The program will not execute until the key is 
inserted, Itis, however still LISTable, The key only 
provides a way to lock cur Atari, Now we must install 
the lock itself, 


The following listings are short, basic programs 
that you can use to protect your programs and disks 
from prying eyes, They are easy to append to existing 
programs and will provide you witha fair amount of 
protection, 


Listing 1 is called PASSGEN, It will provide you 
with a password that is randomly generated and fairly 
hard to reproduce, The easiest way to remember 
numbers and letters isin group sequences, PASSGEN 
generates a group of three letters ( i,e, KLM) inserts 
and asterisk and then generates three numbers (1,е, 
388 ), The password is then HKLM*338, An easy 
sequence to remember, 


Listing 2 is called PRGMPASS, Туре in the program 
and then LIST it to disk or cassette, When you want 
to password protect a program, ENTER it into your 
listing, Type in your password on line 30000 and the 
program name at line 32100 (D:FILENAME), If your are 
using your key insert your code numbers on line 
30000To protect your program, type GOTO 32000, 


Listing 3 is called FASSPRO1, 1+ is almost identical 
to PRGMFASS, but is made to be set up as a disk 
protector, Type the listing in, Insert your password 
and code numbers, and save it to disk by typing GOTO 
30000, Now use your autoboot generator to create an 
autorun file from FASSFRO, 


When you boot your disk the program мі пої let 
you access files until you enter the correct password, 
Failure after three tries will put the Atari into memo 
pad made, 


À word of warning on this listing and the 
preceding, Once you have protected the program, it 
мі] пої be able tobe listed or loaded, System reset 
will re-boot the disk, The break key willbreak the 
program but will not allow a listing of it, Your 
program can still be copied, but unless tne copier 
knows the password and the key, the program wili пот 
run, 


IT IS VERY IMPORTANT THAT YOU SAVE АН 
UNPROTECTED BACK-UP COPY OF YOUR PROGRAM ON 
À FILE DISK,THE PROGRAM WILL OHLY ALLOW YOU TO 
RUM YOUR FILE, NOT LOAD OR LIST IT, 


ADDITIONAL CODING 


By using jumper wires we can put even more codes 
into the key, Location 832 is the STICKO register, It 
returns a number representing a direction when you 
move your joystick, Their are nine possible numbers 
ta choose from, The following list gives the pin 
numbers (see figure 1) and the number returned at 
location 632 when they are connected to ground, If no 
connections are made then PEEKing (632) will return а 
value of 15, Use insulated wire when making the 
connections, Location 844 is STICKTRIGO, Its normal 
(unconnected) state is 1, Connecting it will return а 


0, 


If you use all of the options we've talked about, 
you'll end up with four different numbers encoded 
your key, 


Now you have a key that, along with the 
protection programs, will allow you їс secure those 
valuable programs from prying eyes, 


LOCATION 632 (JOYSTICK 9) 
GROUND PIN #8 


РІЧ VALUE PINS 
189.14 


VALUE 
1 & ЕЛҮ. 
8.0.0015 4 & 2,0060 5 
3.000011 2 & ЕСЕ, 


У 3 & DOTT 


HO CONNECTIONS VALUE-15 


1 Rem PASSGEN 

19 Dim Pas$C9) 

20 For N=1 To 3 

30 Pas$CN,NJ=Chr$CInt (Rnd(@)*90)) 
40 If Рав%(М,М2<Сһт%(65) Then 30 
45 Next N 

46 Pas$(4,4)="x" ™ 
30 For N-5 To 2 

60 Pas $C€N,NJ=Chr$CInt CRnd(Q)*57)) 
20 If Рав%(М,М2<Сһт%(48) Then 60 
80 Next N 

90 ? "PASSWORD GENERATED IS":? Pas$ 


ШК Meisel blah 
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ATR8000 and CP/M SIG SCHEDULE 
Mother Hubbard's Cupboard 


or the Treasurer’s Report The SIG meets in the home of Joe 
Kasper at 8PM on the 2nd Thrusday of 
the month. Please call Joe for the 
Ep HTE adjenda at 782-9041. 
Menbersh і ia p January 9,1986 at 8:00PM 
Cash on and сй 50 Feburary 14,1986 at 8:00PM 
Sales 455 D March 14,1986 at 8:00PM 
MEN dicen April 11,1986 at 8:00PM 
EXPEHCES May 9,1986 at 8:00PM 
Disks ~ 258 ng June 13,1986 at 8:00PM 
Chanse S no July No meeting 
Bp өз 46 August No meeting 
is Mi 26: 45 September 12,1986 at 8:00PM 
Park с? =й October 10,1986 at 8:00PM 
ee 40 са November 14,1986 at 8:00PM 
ID " December No Meeting 


«+++» жж» з з ө з ө ө өө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө ө э ж 


1 Rem РА55РОР1 

2 Dim Тту%(102,Рав%(10),Ғі1е%С(15),0%С(19 
:Err=Peek (195) :Ak=43 :Bk=23 я 
3 If Реек 624) =Ак And Реек (625)=Вк Then 
30000 

4 т "INSERT KEY":Goto З 

30000 Pas$-"G НАСОРТАМ" :Atmpt=1:Poke 58 
41k? Ze 

30010 Position 1,8:? “INPUT PASSWORD" :Р 
sition 1,10:Input Try$:If Try$=Pas$ The 
Goto 30050 

30020 Atmpt=Atmpt+1:? “PASSWORD INCORRE 
T. TRY AGAIN": Tf Atmpt=4 Then 30040 
30030 Goto 30010 


Keying The Atari 


From Гәве b 


2 Rem PRGMPASS 
1 Poke 580,1 

2 Dim Trv$C10),Pas$C10):Err-PeekC195):ft 
mpt-1:Poke 580,1 

3 If Peek (624)=43 And Peek (625)=23 Then 


Gosub 30000 е а к camel he 
4 Position 15,10:? "INSERT КЕҮ" :боіо 3 Oel RN NA LLL 
30000 Pas$="YOUR WORD":? " " g | 

30050 ? " ":Position 5,5:? "FILE LISTIN 


30010 Position 1,8:? "INPUT PASSWORD" :Po 


sition 1,1@:Input Try$:If Try$=Pas$ Then ‚Орев, %1,6,0, Dx, x" Trap 30870 


Goto 30050 30060 Input &H1;File$:? File$:Goto 30060 
30020 Аїтр1=йїтр1+1:? "PASSWORD INCORREC rie I ire соге #1 :irap 40000 
T. TRY AGAIN" :If Atmpt=4 Then 30040 iios 1 

| 30080 ? :? :? "ENTER FILENAME TO RUN" 
28970 ge glee 335 56 30090 File$-"":Input File$:D$2"D:":D$CL 
30040 ? “PASSWORD INUALID....PROGRAM ABO bs Feng cu ria: Мы” 
ВТЕР": F mi Next Pause:B TOUR. 
F or Pause=1 To 500:Nex ause :Ву 30100 Run D$ 
—A0050 Ф "PASSWORD VALIDATED": For N=1 Т SOLTE TELEF Them а 


2 300:Next N:Return 

32000 For Uari-zPeekC130)*PeekC131)X258 
To PeekC132) +Реек С133)ж256 :Роке Vari,15 
9:Next Vag i 

32100 Poke Peek(138)+Peek (139)*256+2,8:S 


40000 :Goto 30080 

32000 For UarizPeek( 130) *PeekC1312X25 
To Реек (132) *Peek(133)2X256:Poke Vari,1 

5:Next Uari 

32100 Poke Peek(138)*Peek(139)X256*2,0: 


55-2 игу ң  ГЭЖСОСССУСГЭСЫ N 


"NW Ч ға 
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CHRIS CRAWFORD ASSEMBLY LANGUAGE COURSE 


ANTIC PUBLISHING INC., COPYRIGHT 1985. REPRINTED BY PERMISSION. 
LESSON FIVE: INDEX REGISTERS & LOOPING 


Ve are now going to expand the model of the 6502 that you have 
been using. Until now, the 6502 I have Gescribed had nothing more 
than a status register, program counter, and accumulator. low I 
am going to reveal the existence of two new registers in the 
6502: the X- and Y-registers. 


These two registers are eight-bit registers just like the 
accumulator. You can load numbers into them and store them out 
just as you can with the accumulator. You cannot do arithmetic or 
Boolean operations with them as you can with the accumulator. 
But you can do a number of very special things that greatly 
increase the power of the 6502. 


Let's start with the simple move instructions. The first are 
LDX and LDY, which load the X- and Y-registers the same way that 
LDA loads the accumulator. Then there are STX and STY, which 
store the X- and Y-registers the same way that STA stores the 
accumulator. There are also four commands for transferring bytes 
between registers; these are TAX (transfer A to X), TAY (transfer 
A to Y), TXA (transfer X to A), and TYA (transfer Y to A). 


Then there are four special instructions that you will use 
very often. These are INX and INY, which increment (add one to) 
the X- and Y-registers, and DEX and DEY, which decrement (sub- 
tract one from) the X-and Y-registers. 


Finally, we have the CPX and CPY commands, which compare X or 
Y with the operand of the instruction. These two instructions 
operate in exactly the same way that the СИР instruction works, 
except that they use the X- and Y-registers instead of the accu- 
mulator. 


What are these two registers used for? Well, they are some- 
times used as temporary registers. If you are in the middle of а 
lengthy computation, and you need to save a value currently in 
the accumulator to make room for something else, the X- and Y- 
registers are a handy place to stuff values away for temporary 
storage. Programmers do this all the time. 


However, temporary storage is not the real purpose and vaue 
arise from their utility as index registers. Index registers go 
hand in hand with loops; the best way to show you how they are 


. used is to dump the whole schmeer at once and then explain it. 


йл ШЧШЕЦӘ Шал 
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CHRIS CRAWFORD ASSEMBLY LANGUAGE COURSE 


So consider the following problem: your program has to deal 
with the possibility of user errors. Suppose you require the 
user ty type in a file name for your program to read. What 
happens if this file is not on the disk? You have to put an error 
message on the screen that says, "FILE NOT ON DISK!" How do you 
print the message? Here's a sample bit of code that will do it: 


LDX # (ENDMSG-ERRMSG-1) 

LOOP1 LDA ERRMSG ,X 

STA SCREEH,X 

SEC 

SBC #520 

DEX 

BPL LOOP1 

JMP ELSWHR 

ERRMSG DB 'FILE NOT ON DISK]' 
ENDMSG DS T 


Let's take apart this code апа explain it step by step. First 
thing we do is load the X-register with the number of characters 
(minutes one) in the message. Тһе expression (ENDNSG-ERRMSG-1) 
will calculate that length at assembly time. This turns out to be 
17 characters long. If we were pedestrian about it we could have 
just written LDX #16, but this way, if we decide to change the 
message we don't have to remember to go back and change the LDX 
command. Neat, huh? 


OK, so now we have a 16 in the X-register. Now the 6502 comes 
to the next command -- LDA, ERRMSG,X. This command tells it to 
load the accumulator with the byte at (address ERRMSG, indexed by 
X). What this means is as follows: the 6502 will take the ad- 
dress ERRMSG and add the value of the x-register to that address. 
It will then go to the address so calculated and load the accumu- 
lator with the contents of that address. Since X contains a 16, 
the 6502 will go to the 16th byte after the first byte in the 
table ERRMSG. If you count characters, you vill see that the 
l6th byte is the exclamation point. So the 6502 will load the 
ASCII code for an exclamation point into the accumulator. 


The next two instructions (SEC, SBC 7:920) are necessary to 
correct for the Atari's nonstandard handling of ASCII codes. 
They make sure that the exclamation will be printed on the screen 
as an exclamation point. 


The next instruction (STA SCREEN,X) stores the reslt indexed 
by X. The 6502 will add the contents of X (still 16) to the 
address SCREEN. It will then store the contents of the accumula- 
tor into that address. If that address is part of screen RAM, 
then you will see an exclamation point appear on the screen. 


The next instruction that the 6502 encounters is the DEX 
instruction. This instruction subtracts one from the X-register, 


Urdu ЕНЕ sin 
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CHRIS CRAWFORD ASSEHBLY LANGUAGE COURSE 


Next, the 6502 comes to the instruction BPL, LOOP 1. This will 
branch if the N-flag is clear. Тһе vaue of the N-flag is affect- 
ed by a DEX instruction. The value of bit D7 of the result is 
transferred to the N-flag. Bit Dd7 of 15 is a zero, hence the N- 
flag is clear, hence the 6502 will indeed take the branch. Note 
that it branches back up to LOOP 1l. 


How it will repeat the process, only this time X contains a 
15, not а 16. It will therefore grab the l5th character, an ASCII 
'K', and store that to the screen position just before the excla- 
mation point. Then it will subtract one form X to get a 14, and 
will continue the loop. 


This process will continue, with the 6502 grabbing bytes in 
reverse order form the table and storing them onto the screen, 
until after the 6502 does the seroth byte. When X contains a 
zero, and the 6502 executes a DEX, it obtains the result SFF. 
This sets the N-flag. When the 6502 encounters the BPL commanc, 
it will NOT take the branch; insteac, it will skip the branch and 
go on to the JMP statement. The loop is terminated. 


In this one fragment of code you have seen two major ideas: 
indexed addressing and looping. They are so closely related that 
it is hard to talk about one without talking about the other. 


You can use indexed addressing vith either the X-register or 
the Y-register. You most commonly use indexed addressing with the 
LDA and STA commands, but you can also use it with many of the 
other 6502 commands: ADC, SBC, CMP, AND, ORA, FOR, LSR, ROR, ADL, 
and ROL can all be used with indexed addressing. Indexed address- 
ing allows you to work with tables or arrays of Gata. 


There is one ugly catch: all of your arrays must be less than 
257 bytes long, because the index registers are only eight bits 
wide. Most of the time this is not a serious problem. However, 
if you must address a larger table or array, you can use indirect 
addressing. To do this, you calculate the address that you 
desire to access, store that address in two contiguous bytes on 
page zero (low, then high) -- we call these two bytes a point- 
er -- and then refer to the pointer like so: 


LDA (POINTER), Y 


This instruction will take the address out of pointer, add the 
value of Y to it, and load the accumulator with the contents of 
the address so calculated. If POINTER contains $4567 and Y con- 
tains a 2, then the 6502 will load the acumulator with the con- 
tents of address $4569. You are still restricted by the size of 
Y, but you can always go back and change the POINTER if you пеес 
to span larger arrays. In this case, you frequently just leave Y 
equal to zero and do all of your indexing directly with changes 
to POINTER. 
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CHRIS CRAWFORD ASSEMBLY LANGUAGE COURSE 


The last topic I will take up is termination techniques. Every 
loop must somehow be terminated if you are to avoid the problem 
of the Sorcerer's Apprentice. You will note that the programming 
example I gave used a rather оаа approach. I started at the end 
of the array and worked backwards. Why not start at the beginning 
and work forwards? It's slightly more efficient going backwards 
than forwards.  Vhen you go forwards, you heve to terminate the 
loop with: 


INX 
CPX #17 
BNE LOOP1 


Whereas when you go backwards, you need only use: 


DEX 
BPL LOOP1 


Going backwards you save one instruction. However, if this 
confuses you, feel free to count fcrward; that works, too, only 
it's a little less efficient. 


There is also a problem on choosing whether to BNE or BPL. 
BPL restricts you to a range of only 127 bytes, but BNE, but 
index from ERRMSG-1 and SCREEN-1 instead of ERRMSG and SCREEN. 


There are lots of other sneaky ways to terminate loops, but 
they fall into advanced topics. 


161 BANK STREET 
WAUKESHA, WISCONSIN 53186 
(414) 549-5511 
(In Waukesha State Bank Lot) 


® 

We Specialize in Your Printing Needs 
e Flyers e Lists * Religious School Material 
e Church Programs • Birth Announcements e Envelopes (Pledge) 
* Newsletters e Announcements e Stationery і 
• Вгосһигеѕ • Wedding Programs * Dues Statements 
е Invitation Card е Song Sheets е Mailings 
• Tickets e Prayers e Pledge Letters 

We Also Provide 

* Letterheads * Programs * Postcards e Padding e Enlargements 
e Envelopes е Business Cards * Flyers е Staplin * Photocopies 
e Statements • Memo Pads е Notices * Cutting * Folding 


* Resumes * Price Lists * Reports * Rubber Stamps e Drilling 


Motes сез Quarter Meg 


In September 1985 vol.10 no.9 Byte the 
small systems journal there was an article 
called The Quarter Meg Atari 800X! By Claus 
Buchholz. In this article Claus explains how 
the ram works in the Atari computer and most 
important how to perform the upgrade to 256K 
byte on an 800X!. 


There are some important points to 
remember about this upgrade. First upon 
power up the computer looks like а standard 
800XL with no extra ram. Second there аге 
eight 32k banks and switching can be the 
upper 32k or lower 32k of ram. Third there 
are two types of B00XL's with different video 
controllers and care is in order to check 
which circuit to use for your machine. 
Finally the software for this ramdisk will 
not work on the 130XE. 


I also do not recommend the novice to 
perform this upgrade with out help from a 
more experience tech. The ram chips are 
sensitive to static electricity, and there 
are wiring changes to the computer. But in 
all this upgrade may suite your needs with a 
ram disk that is equal toa full double 
density single sided disk drive that works at 
the speed of the computer. That costs about 
1/6 less,than said disk drive and power 


supply. 


PARTS LIST 


8 41256 256k-bit dynamic БАМ  (200ns оғ 
faster?) 
D ———— 33-ohm, 1/4 watt resistor 


1 276-150 Radio Shack 2- by 3-inch circuit 
board 
16 pin IC socket 

18 inch 25 conductor ribbon cable 

(for video controller СП21697 or circuit 
fig.1) 
1 7415153 Dual 4-to-1 multiplexer 

(for video controller  C012296 or circuit 
fig.2} 
1 7415151 8-to-1 multiplexer 

1 7416393 Dual 4-bit counter 

1 741500 Quad NAND gate 

I could not get a 1/4 watt resistor sa I 

used a 1 watt resistor instead. 
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{note the pin numbering of the chips) 
notch 
Pin 1 => !----- U=- | <= Pin 16 
Pin 2 => | CHIPS Pan 15 
Pin З => | | <= Pin 14 


It took about 2 hours to make the circuit 
board and about 1 hour to install the circuit 
board in the 800XL computer. But the hardest 
part was getting the а good copy of the 
software. Since BYTEnet іс а password BBS and 
will no let you in at all with out a 
password, I had to resort to other means to 
get the software to work the ramdisk. This 
software is on the MILATAFI BBS 414-781-5710 
for down loading. 

This ramdisk works with Dos 2.0, П5/А+, 
and Mydos. The ramdisk will work if you have 
Ümnimon but the ramdisk handler will aver 
write Ominmon. I under stand here іс a basic 
for this 256K upgrade and as soon as I get a 
copy to look at I will write a review of it. 
If you are interested read the for mentioned 
BYTE for the full information on the upgrade 
Have fun. 

By Peter Furth 


Reprinted from the 
I/O Connecter 

5 КЕМ BASIC DENSITY CHANGING PGM BY 
Е. HIATT 1/5/85 

Є REM Called from Basic by USR rout 
ine, ie. X-USECADRECIS2,8,D) where # 

is drive No. and D is Sp! or "gni 
n Dec. 

10 DIM I$(131) 
20 FOR Ісі TO 131:READ A:I$€I,I9=CH 
ЕФСА):МЕХТ I | 

100 DATA 104, 104, 104, 201,1, 144, 26,2 
O1,3,176, 22, 24,141, 1,3, 169,49, 141,0 
r2, 104, 162,0, 104, 201 
110 DATA 83, 240, 6, 232, 201,68, 240, 1, 
36, 134, 218, 169,64, 141,3,3, 169, 78, 14 
1,2,3,169,12,141,8 
120 DATA 3,169,0,141,9,3, 169, 203, 14 
1, 4,3, 169,0,141,5,3, 32,89, 228, 48, 2 
8, 165, 218, 208,4 
130 DATA 162,0, 240, 2, 162,4, 134,208, 
#01,1, 240,6, 162, 128, 160, 0, 240, 4, 162 
»9,160,1,132, 209,134 
140 DATA 210, 201, 2, 240,4, 162,18, 208 
» 2, 162, 26, 134, 206, 169, 128, 141,3, 3,1 
69,79,141,2,3,32,89 
150 DATA 228,32 >54 7 9c 0 
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BLOCK 1/0 WITH ATARI BASIC 
David Pelinka 


The ability to read or write a block of 
characters from a data storage device with BGET 
and BPUT is one of the many nice features of BASIC 
XL. It is much faster than handling one character 
at a time and you can read or write an entire file 
as fast as the DOS LOAD and SAVE commands. Unfor- 
tunately, Atari BASIC does not have BGET and BPUT 
so it is limited to single byte (GET, PUT) and 
record (INPUT, PRINT) processing. If you're an 
Atari BASIC owner, you can still use block 1/0 
(input-output) by calling the routines in ROM. The 
following demo shows how to do it. Even if you own 
BASIC XL as I do you can learn a lot about how the 
Atari works by trying the бето, You'll appreciate 
how much work BASIC XL saves you, with just these 
two commands. 

The program below demonstrates reading and 
writing a block of characters to disk by poking 
‘the correct values into the IOCB (Input-Output 
Control Block) memory and calling the CIO (Central 
_Input-Output Utility) to do the work. It 15 not 
leant to be a subroutine for inclusion in your own 
program, but only to document and demonstrate the 
technique. The information for this program came 
from Mapping the ATARI by an Chadwick. It's a book 
you can't be without if you do any Atari 
programming at all. See pages 85-88 for details 
about IOCBs and pages 146-147 regarding the CIO. 
Here's a short blow by blow description of what's 
going on. 

LINE 50: The ML$ string contains a short 
machine language program which jumps to the CIO 
vector where the actual disk access occurs. (Be 
sure to type the * and d as inverse 
characters.) For the assembly language programmers 
in the audience the opcodes are; PLA PLA PLA TAX 
JMP $E456. The variable 10С80 is the location of 
the first I0CB block located at memory location 
832. 

LIME 100: This is just to show we can use any 
10С8 (or channel) except #0 which is used by the 
editor, #6 which is used by BASIC graphics 
commands and #7 which is used by the printer. 

LINE 110: We'll use A$ to store the data as 
it's read in, or the data we enter before it's 
written to disk. 

LINE 120-130: Setup the variables to specify 
read or write. The variable IO is used in line 140 
and 210. ICCOM is used in line 160, If we're 
writing data, we enter our input into A$. 

LINE 160-210: Here is where we set up the 
10CB for the activity we want to perform. The 


zero. There are 16 bytes for each IOCB so we add 
16 times our IOCB number (1-5). Then we add the 
byte offset of the data we're poking. The two byte 
locations require a little math. (BASIC XL has 
ОРОКЕ which pokes a number into two successive 
bytes automatically. What a deal!) 

LINE 230: Here's where we jump off into the 
CIO which does the actual disk access based on the 
info in the IOCB. That second parameter gave me 
fits. It's not explicitly shown in Mapping the 
ATARI. 

LINE 240-260: If this is a read, we convert 
the codes of the data read into A$ into ATASCII 
characters and print them on the screen. It takes 
longer to print them than it does to read them, 


10 REM BLOCK DISK 1/0 IN ATARI BASIC 

20 REM DEMO BY DAVID PELINKA 2/85 

30 ? CHR$(125):? :? "BLOCK DISK 1/0 IN BASIC DEMO" 
40 DIM F$(14),ML$(7),IO$(1) 

50 ML$="hhh*LVd": IOCB0=832:REM * AND d ІН ML$ аге 
INVERSE! 

60 ? :? :? "Filename (use D:FN) “;: INPUT F$ 

70 ? "Read(R) or Write(W) ";: INPUT 10% 

80 IF 10$<>"В" AND I0$<>"W" THEN 70 

90 ? "How many bytes long “;: INPUT BYTES 

100 ? "Channel # to use (1-5) ";: INPUT 10С8 

110 DIM A$(BYTES) 

120 IF I0$-"R" THEN I0=4: ICCOM=7 

130 IF І0%-"Ы" THEN 10=8:ICCOM=11:? :? "Туре 
string to write to disk, ( ";BYTES;")":INPUT A$ 
140 OPEN £I0CB,IO,0,F$ 

150 REM POKE IN IOCB VALUES ==> IOCB START + IOCB£ 
* 16 * OFFSET 

160 POKE IOCBO*IOCB*16*2,ICCOM:REM BINARY READ OR 
WRITE 

170 HI=INT(ADR(A$) /256) : LO=ADR(A$) -HI*256 

180 POKE IOCBO*IOCB*16*4,L0:POKE 
IOCBO*IOCB*16*5,HI:REM BUFFER ADDRESS 

190 HI=INT(BYTES/256) : LO=BYTES-HI*256 

200 POKE IOCBO*IOCB*16*8,L0:POKE 
І0С80%10С8%16%9,НІ:КЕМ BUFFER LENGTH 

210 POKE IOCBO*IOCB*16*10,10:REM AUXI 

220 REM JUMP TO CIOV, STACK MUST INCLUDE IOCB4 * 
16 

230 X-USR(ADR(ML$) , IOCB*16) 

240 IF I0$="W" THEN ? "File written..." ;:G0TO 270 
250 ? :? F$;" begins..." 

260 FOR 1=0 TO BYTES-1:CH-PEEK (ADR(A$)*I):? 
CHR$(CH) ;: NEXT I 

270 CLOSE £IOCB:CLR :GOTO 40 


РАСЕ 14 


Reprinted from the 
Tri-county Computer Club 


start 


option 
p(53279) 26 


р(53279)-3 


188| 242 1% 


3 REM PEEK 764 DEMO 
POKE 764,255:REM SET VALUE 
А 2 СНВ%( 125) :РОКЕ 718,2:POKE 755,0 
28 POSITION 18,15:2 "PLEASE PRESS А KEY" 
25 POSITION 18, 16:? "AND WATCH WHAT HAPPENS!" 
$5 POSITION 10542 т РЕКС) VALE 
* OF THE KEY IS "sPEEK764;° 
48 SETCOLOR 4,РЕЕК764,4 : 
ЕНЕ 
+48, 18 DROP 
3 FOR tae TO S; :NEXT DELAY :NEXT DROP 
&8 PEEK764=PEEK(764 
98 GOTO 35 


1491 clr 125 
175 [ATARI 


6| < 68 


191 


) 41 


185] 8 48 


174 1/ 47 


148 


( 48 
9 57 


Р 33 


SPACE 32 168 


S REM KEY PRESS DEMO 

18 DIM KEY$CD :POKE 718,2:? CHR$CI2S) 

28 POSITION 12,15:? "PLEASE PRESS A KEY" 

25 POSITION 12,16:2 "AND THEN RETURN" ::INPUT KEY$ 
26 POSITION 27,162" я 

38 POSITION 18,2:? KEY$;" IS THE KEY YOU PRESSED" 
48 POSITION 18,4:? “THE CHR$ VALUE IS ';ASCCKEY$);* " 
55 SETCOLOR 4,ASC(KEY$) ‚4 

68 FOR DROP-14 TO 8 STEP -1 

78 SOUND @,ASC(KEY$) , 18 DROP 

75 FOR DELAY=1 70 18:NEXT DELAY:NEXT DROP 

188 GOTO 28 
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LOWER CASE & REVERSE CODE 
UPPER CASE & REVERSE CODE 
CONTROL KEY & REVERSE CODE 
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NEWSLETTER INFORMATION 


This newsletter is written and printed by 
members of the Milwaukee Area ATARI 
User's Group (MILATARI]. Opinions 
expressed in this publication are those 
of the individual authors and do not 
necessarily represent or reflect the 
opinions of the Milwaukee Area Atari 
User's Group, its officers, its members 
or its advertisers except where noted, 
Articles reprinted from bulletin boards 
and other newsletters are presented as an 
information exchange, no warranty is made 
to their accuracy or factuality. 


Your contributions of articles are always 
welcome, You may submit your article on 
ATARI compatible cassette or diskette, on 
typewritten form or you can arrange with 
the editor to upload your file via 


modem, You can send Graphics eight or 
seven plus screens stored on disk in 
Micropainter or Micro Illustrator 


formats, 


Other computer user groups may obtain 
copies of this newsletter on ап exchange 
basis. 


Milwaukee Area Atari User's Group 


MILATARI is an independent, user 
education group which is not affiliated 
with ATARI INC. The newsletter is the 
official publication of MILATARI and is 
intended for the education of its members 
as well as for the dissemination of 


information concerning ATARI computer 
products, 
MILATARI membership is open to 


individuals and families who are 
interested in using and programming ATARI 
computers, The membership includes a 
subscription to this newsletter and 
access to the club Libreries, The annual 
membership fee is $15 for individuals or 
$20 for a family. 


Vendors wishing to display and/or sell 
items at  MILATARI meetings must таке 
prior arrangements with the club vice 
president. Rates are $10 per meeting or 
$90 per year payable in advance, 


ALL material іп this newsletter not 
bearing a COPYRIGHT message may Бе 
reprinted їп any form, provided that 
MILATARI and the author are given credit. 
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MILATARI ADVERTISING RATES 


This newsletter will accept camera ready 
advertising copy from anyone supplying 
goods and services of interest to our 
membership. 


Current paid members of  MILATARI may 


place classified ads in the newsletter at 
no charge, 


Advertising Rates 


Full page $37.50 
Half page $20.00 
Quarter page $12.50 
Business card $2.00 
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HIGH QUALITY 
5-1/4” SSDD DISKS 


10 Disks $8.95 
- Single Sided (Punched for two-sided use) 50 Disks $42.50 


- Double Density 
- with Hub Rings, Write Protects & Labels 100 Disks $79.95 


Prices and availability are subject to change without notice 


COMPUTER SOFTWARE CENTER === 
9805 W. Oklahoma Ave., Milwaukee 


(Two blocks East of interatate 894) 


Tues.-Fri. 12-8, Sat. 12-5 (414) 543-5123 


Open normal hours Noon-5PM on MILATARI meeting Saturdays 


